home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / airplane.arc / PRINTIT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.3 KB  |  158 lines
  1. 2    DEF SEG = 0: FOR XU = 0 TO 3: POKE &H6C + XU, PEEK(&H20+XU): NEXT XU
  2. 3  WIDTH 40
  3. 6  GOSUB 50000
  4. 7  DIM M%(1):M%(0)=1485
  5. 20  SCREEN 0:KEY OFF:CLS
  6. 21  COLOR 0,7
  7. 25  LOCATE 5,1
  8. 27  PRINT SPACE$(40);
  9. 30  LOCATE 6,1:PRINT" The Great International Paper Airplane ";
  10. 40  LOCATE 7,1:PRINT"            Construction Kit            ";
  11. 45  PRINT SPACE$(40);
  12. 50  LOCATE 9,1:PRINT "       Airplane Printout Program        ";
  13. 52  PRINT SPACE$(40);
  14. 55  COLOR 7,0
  15. 70  LOCATE 18,1:PRINT "Copyright 1985 by Simon & Schuster, Inc."
  16. 90  LOCATE 20,3:PRINT "Program by Ross, Brandon & Reid, Inc."
  17. 100  LOCATE 22,4:PRINT "Based on original by Neosoft, Inc."
  18. 110  LOCATE 25,8:PRINT"Press any key to continue";
  19. 115  GOSUB 500
  20. 120  SCREEN 0:CLS
  21. 125  COLOR 0,7
  22. 130  LOCATE 2,14
  23. 132  PRINT "           "
  24. 135  LOCATE 3,14
  25. 140  PRINT " Main Menu "
  26. 141  LOCATE 4,14
  27. 142  PRINT "           "
  28. 145  COLOR 7,0
  29. 160  LOCATE 10,7:PRINT"1. Print plane from Paper"
  30. 161  LOCATE 11,10:PRINT"Airplane program disk"
  31. 165  LOCATE 13,7
  32. 170  PRINT "2. Print plane from a"
  33. 171  LOCATE 14,10:PRINT"disk of your own"
  34. 175  LOCATE 16,7
  35. 180  PRINT "3. Exit to DOS"
  36. 200  LOCATE 22,10
  37. 210  PRINT "   Your choice (1-3) ?";
  38. 215  GOSUB 500
  39. 220  IF VAL(Y$)<1 OR VAL(Y$)>3 THEN BEEP:GOTO 200
  40. 230  ON VAL(Y$)GOTO 1200,600,400
  41. 240  GOTO 215
  42. 400  SCREEN 0
  43. 401  CLS:LOCATE 12,11:PRINT "Exit program (Y/N) ?";:GOSUB 500
  44. 450  IF Y$<>"y" AND Y$<>"Y" THEN SCREEN 1:GOTO 120
  45. 460  CLS:SYSTEM
  46. 500  PRINT" ";:GOSUB 30100
  47. 501  Y$=INKEY$
  48. 505  IF Y$="" THEN 501
  49. 510  RETURN
  50. 600  SCREEN 0:CLS:LOCATE 1,10
  51. 605  IF F$="Menu" OR F$="menu" OR F$="MENU" THEN F$="":GOTO 120
  52. 607  F$=""
  53. 610  COLOR 0,7
  54. 630  PRINT "  Listing of Files on  "
  55. 632  LOCATE 2,10
  56. 635  PRINT "     Your Own Disk     "
  57. 637  COLOR 7,0
  58. 640  LOCATE  4,1
  59. 645  GOTO 900
  60. 900  REM
  61. 901  FILES
  62. 908  GOSUB 30100
  63. 909  LOCATE 25,1:PRINT"Type `menu' to return to main menu";
  64. 910  LOCATE 23,1:PRINT"Enter FILENAME to print ==>";
  65. 913  FX=1:GOSUB 30200:F$=Y$
  66. 915  GOSUB 924:GOTO 600
  67. 924  IF F$="Menu" OR F$="MENU" OR F$="menu" OR LEN(F$)=0 THEN CLS:RETURN
  68. 925  ON ERROR GOTO 1090
  69. 928  SCREEN 1,0
  70. 929  IF IER=1 THEN RESUME:GOTO 940
  71. 930  CLS:BLOAD F$
  72. 940  LOCATE 1,1:PRINT" .......Print this Plane (Y/N) ?.......";:GOSUB 500
  73. 945  IER=0
  74. 950  IF Y$<>"Y" AND Y$<>"y" THEN RETURN
  75. 960  BLOAD F$
  76. 970  GOSUB 10000:RETURN
  77. 1090  CLS:LOCATE 12,13:PRINT"File not found!";:BEEP
  78. 1095  LOCATE 24,8:PRINT "Press any key to continue";
  79. 1096  GOSUB 500
  80. 1097  IER=1
  81. 1098  RETURN
  82. 1099  STOP
  83. 1100  GOTO 120
  84. 1200  SCREEN 0:CLS:LOCATE 1,10
  85. 1210  COLOR 0,7
  86. 1230  PRINT " Listing of Airplanes "
  87. 1232  LOCATE 2,10
  88. 1235  PRINT " on the Program Disk  "
  89. 1237  COLOR 7,0
  90. 1244  LOCATE 5,1:PRINT "Undecorated  Decorated"
  91. 1245  LOCATE 6,1:PRINT "  Planes      Planes"
  92. 1247  LOCATE 8,1
  93. 1250  FOR I=1 TO NP
  94. 1252  LOCATE ,1
  95. 1253  PRINT STR$(I);". "PF$(I)
  96. 1255  NEXT I
  97. 1257  LOCATE 8,12
  98. 1258  FOR I=NP+1 TO ND+NP-4
  99. 1259  IF I=17 THEN PRINT
  100. 1260  LOCATE ,12
  101. 1262  PRINT STR$(I);". "PF$(I)
  102. 1264  NEXT I
  103. 1268  LOCATE 8,25
  104. 1270  FOR I=17 TO 20
  105. 1272  LOCATE ,25
  106. 1276  PRINT STR$(I);". "PF$(I)
  107. 1278  NEXT I
  108. 1290  LOCATE 14,26:PRINT"21. Main Menu";
  109. 1320  LOCATE 22, 9:PRINT"   Your choice (1-21) ?  "
  110. 1325  LOCATE 22,32
  111. 1330  GOSUB 30200:IF VAL(Y$)<1 OR VAL(Y$)>21 THEN BEEP:GOTO 1320
  112. 1332  IF VAL(Y$)=21 THEN GOTO 120
  113. 1336  F$=PF$(VAL(Y$))+".PIC"
  114. 1340  GOSUB 924:GOTO 1200
  115. 6000  REM INSTRUCTIONS
  116. 7000  REM DRIVERS
  117. 7720  GOTO 120
  118. 9999  STOP
  119. 10000  M%(1)=203:L%=VARPTR(M%(0)):DEF USR=L%:PRINT USR(0):RETURN
  120. 30100  DEF SEG=0: POKE 1050,PEEK(1052): DEF SEG: RETURN
  121. 30200  NUM$="":SCREEN 0:GOSUB 30100
  122. 30201  A$=INKEY$:IF A$="" THEN 30201
  123. 30202  LOCATE ,,0
  124. 30203  IF A$=CHR$(32) THEN BEEP:GOTO 30201
  125. 30205  IF A$=CHR$(13) OR A$=CHR$(8) THEN 30400
  126. 30207  IF FX=1 THEN 30225
  127. 30210  IF A$<"0" OR A$>"9" THEN BEEP:GOTO 30201
  128. 30215  IF LEN(NUM$)=>2 THEN BEEP:GOTO 30201
  129. 30218  IF LEN(NUM$)=0 AND A$="0" THEN BEEP:GOTO 30201
  130. 30225  IF FX=1 AND LEN(NUM$)>=12 THEN BEEP:GOTO 30201
  131. 30230  NUM$=NUM$+A$
  132. 30231  IF FX=1 THEN LOCATE 23,28:GOTO 30234
  133. 30232  LOCATE 22,32:PRINT NUM$;"  ";:GOTO 30235
  134. 30234  PRINT NUM$;SPACE$(13-LEN(NUM$));
  135. 30235  GOSUB 30100
  136. 30236  IF FX<>1 THEN PRINT "  ";
  137. 30240  GOTO 30201
  138. 30400  IF LEN(NUM$)=0 THEN BEEP :GOTO 30201
  139. 30401  IF A$=CHR$(13) THEN 31000
  140. 30410  NUM$=LEFT$(NUM$,LEN(NUM$)-1)
  141. 30420  GOTO 30231
  142. 31000  REM END OF NUMBER C/R FOUND
  143. 31105  FX=0
  144. 31110  Y$=NUM$
  145. 31120  RETURN
  146. 49999  END
  147. 50000  REM READ PLANES
  148. 50005  DIM PF$(25)
  149. 50010  NP=9
  150. 50020  ND=11
  151. 50030  FOR I=1 TO NP+ND
  152. 50040  READ PF$(I)
  153. 50050  NEXT I
  154. 50060  RETURN
  155. 55000  DATA PLANEB,PLANEC,PLANEE,PLANEF,PLANEG,PLANEI,PLANEJ,PLANEK,PLANEL
  156. 55010  DATA DPLANEA,DPLANED,DPLANEE,DPLANEF,DPLANEH,DPLANEJ,DPLANEM
  157. 55015  DATA HARDWARE,MARKINGS,WINGS1,WINGS2
  158.